﻿Imports BusinessLogicLayer


Partial Class ContadorVisistas
    Inherits System.Web.UI.UserControl

    Dim errores As String


    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'Hacemos una referencia a la clase
        Dim capanegocios As New ContadorBL

        'Try
        '    'Invocamos al método MostrarVisitas definido previamente en la clase
        '    lblVisitante.Text = capanegocios.MostrarVisitas.Tables("Visitas").Rows(0).Item(0)

        'Catch ex As Exception
        '    errores = capanegocios.ChapaError

        '    Response.Redirect("Errores.aspx?id=" & errores.ToString)

        'Finally
        '    'Liberamos recursos
        '    capanegocios = Nothing

        'End Try
    End Sub
End Class
